home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 21.zip
/
BS1 part 21
/
Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].7z
/
Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].adf
/
rexx.lzh
/
AutoSave.pprx
< prev
next >
Wrap
Text File
|
1993-01-24
|
1KB
|
53 lines
/*
@BAutoSave @P@ICopyright Gold Disk Inc., February, 1992
This Genie will prompt the user to save at a specified time interval. You may optionally have the current file backed up.
*/
cr = '0a'x
arg options
interval = word(options, 1)
backup = word(options, 2)
tval = getclip(ppautosave)
if tval = '' then
do
startas = 1
tval = 5
end
if ~exists("rexx:ppageautosave.rexx") then
exit_msg("Unable to find ppage autosave Genie in rexx: directory")
if interval = '' then
do
response = upper(ppm_GetForm("Enter Time interval", 8, "Time interval in minutes:"tval||cr"Create backup file Y/N:Y"))
if response = '' then exit_msg()
parse var response tval '0a'x backup
if tval = '' | ~datatype(tval, n) | tval < 0 then exit_msg("Invalid Entry")
end
if backup ~= 'Y' then backup = 'N'
call setclip(ppautosave, tval)
if startas ~= 1 then exit
address command
'run >nil:' "rx rexx:ppageautosave.rexx "backup
exit_msg()
exit_msg: procedure
do
parse arg message
if message ~= '' then
call ppm_Inform(1, message, )
exit
end